Module Validation

    Public Function IsDecimal(ByVal text As String) As Boolean
        Dim tmp As Decimal
        Dim canParse = Decimal.TryParse(text, tmp)
        Return canParse
    End Function

    Public Function IsInteger(ByVal text As String) As Boolean
        Dim tmp As Integer
        Dim canParse = Integer.TryParse(text, tmp)
        Return canParse
    End Function

    Public Function IsLong(ByVal text As String) As Boolean
        Dim tmp As Long
        Dim canParse = Long.TryParse(text, tmp)
        Return canParse
    End Function



End Module
